   1 .
   2 .POLO
   3 .BY BOB HENSEL
  10 NT=0;@(5)=0;@(6)=0;FC=137;BC=5
  15 T=301
  16 clear 
  20 for A=-67to 67step 11;box A,-7,1,72,1;next A
  30 for A=-43to 30step 9;box -1,A,133,1,1;next A
  35 box -1,-7,135,74,3;box -1,30,135,1,3
  40 box -73,-7,12,19,1;box 72,-7,12,19,1
  50 box -50,37,34,11,1;box -45,37,22,9,2;box 49,37,34,11,1;box 44,37,22,9,2
  60 P=1;X=-60;Y=36;gosub 1000;gosub 2000;X=-72;Y=-7;gosub 1000;P=2;X=59;Y=36;gosub 1000;gosub 2010;X=71;Y=-7;gosub 1000
  70 for A=1to 8;X=-61+rnd (10)mul 11;Y=-39+rnd (6)mul 9;if A<5gosub 2000
  80 if A>4gosub 2010
  90 next A
 100 @(1)=-6;@(2)=5;@(3)=-21;@(4)=6;for P=1to 2;X=@(P);Y=@(P+2);gosub 1000;next P
 110 P=1
 190 Z=0;B=-61;if P=2B=60
 200 D=rnd (6);box -25,36,9,9,2;box -25,36,9,9,1;box -25,36, 7,7,2
 220 if D=1box -25, 36,1,1,1;goto 300
 230 box -27,38,1,1,1;box -23,34,1,1,1;if D=2goto 300
 240 if D>3box -27,34,1,1,1;box -23,38,1,1,1
 250 if D=4goto 300
 260 if D#6box -25,36,1,1,1
 270 if D=3goto 300
 280 if D=6box -25,38,1,1,1;box -25,34,1,1,1
 300 .
 310 X=71;P=P+1;if P=3P=1;X=-72
 311 if JY(P)=0goto 314
 312 box X,-7,6,13,1;Y=-3;if JY(P)=-1Y=-12
 313 gosub 1005
 314 P=P+1;if P=3P=1
 320 if Z>28goto 366
 330 gosub 2015;if JX(P)=0if JY(P)=0goto 310
 340 X=@(P)+Dmul 11mul JX(P);Y=@(P+2)+Dmul 9mul JY(P)
 350 if PX(X,Y)=0goto 330
 352 if Y<31if Y>-44goto 356
 354 goto 330
 356 if ABS(X)>65goto 900
 360 box @(P),@(P+2),6,5,1;@(P)=X;@(P+2)=Y;gosub 1000
 362 X=-5;if P=2X=4
 364 if PX(X+@(P),@(P+2))=0goto 370
 366 P=P+1;if P=3P=1
 368 goto 190
 370 NT=1;X=@(P);Y=@(P+2);for A=1to 3;box X,Y,6,5,1;gosub 1000;next A;NT=0
 372 @(P+4)=@(P+4)+1
 380 goto 190
 900 if ABS(X)>75goto 330
 910 if Y>-13if Y<0goto 930
 920 goto 330
 930 @(P+4)=@(P+4)+5
 935 box @(P),@(P+2),6,6,1
 938 gosub 1000
 940 NT=15;MU=49;MU=51;MU=53;MU=56;MU=48;MU=53;MU=56;MU=48;MU=48;MU=48;NT=0;goto 16
1000 NT=5
1005 box X,Y,4,3,2;box X,Y-1,2,1,1;if P=1box X+2,Y+2,2,2,2;box X-3,Y+1,1,1,2
1010 if P=2box X-2,Y+2,2,2,2;box X+2,Y+1,1,1,2
1020 MU=67;NT=0;return 
2000 box X-5,Y+1,1,8,2;box X-1,Y-3,6,1,2;box X-1,Y+4,6,1,2;return 
2010 box X+4,Y+1,1,8,2;box X+1,Y-3,6,1,2;box X+1,Y+4,6,1,2;return 
2015 Z=Z+1;A=Zdiv 2;if RM=0return 
2018 box @(P),@(P+2),6,5,1
2020 T=T-1;CX=-5;CY=36;print #1,Tdiv 60,":",#1,RMdiv 10,#1,RM
2022 Z=Z+1;CX=-51;CY=37;print #2,@(5),;CX=38;print #2,@(6),
2030 if T=0goto 4000
2040 X=@(P);Y=@(P+2);gosub 1005;return 
4000 box 0,-3,62,26,2;CX=-25;CY=0;print "GAME OVER
4010 if JY(1)=1goto 15
4020 if JY(1)=-1goto 1
4030 goto 4010
:return ;run 